home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / univspl / audiomai.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1999-01-29  |  2.1 KB  |  70 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl\vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "audiomain_bcbx.h"
  6. #include "audioc.h"
  7. #include "reverb_wave.h"
  8. //---------------------------------------------------------------------------
  9. #pragma resource "*.dfm"
  10. TGUIForm *GUIForm;
  11. //---------------------------------------------------------------------------
  12. __fastcall TGUIForm::TGUIForm(TComponent* Owner)
  13.     : TForm(Owner)
  14. {
  15.    AudioInUse=false;
  16.    Wav=NULL;
  17.    newwave=NULL;
  18. }
  19.  
  20.  
  21. //---------------------------------------------------------------------------
  22. void __fastcall TGUIForm::SpeedButton1Click(TObject *Sender)
  23. {
  24.     if (OpenDialog->Execute())
  25.     {
  26.        // attempt to create a wave object
  27.        Wav=new AudioC(OpenDialog->FileName.c_str());
  28.        if (Wav!=NULL) InFileEdit->Text=OpenDialog->FileName;
  29.     }
  30. }
  31. //---------------------------------------------------------------------------
  32. void __fastcall TGUIForm::ProcessBtnClick(TObject *Sender)
  33. {
  34.  
  35.  
  36.    // create new wave object based on old one
  37.    newwave= new AudioC(*Wav);
  38.  
  39.  
  40.    reverb_wav(*Wav,StrToFloat(RevDelEdit->Text),
  41.               StrToFloat(RevAmpEdit->Text),*newwave);
  42. }
  43.  
  44. //---------------------------------------------------------------------------
  45. void __fastcall TGUIForm::SpeedButton2Click(TObject *Sender)
  46. {
  47.     if (SaveDialog->Execute())
  48.     {
  49.        OutFileEdit->Text=SaveDialog->FileName;
  50.     }
  51. }
  52. //---------------------------------------------------------------------------
  53. void __fastcall TGUIForm::QuitBtnClick(TObject *Sender)
  54. {
  55.     Application->Terminate();
  56. }
  57. //---------------------------------------------------------------------------
  58. void __fastcall TGUIForm::SaveBtnClick(TObject *Sender)
  59. {
  60.    newwave->WriteFile(OutFileEdit->Text.c_str());
  61.  
  62. }
  63. //---------------------------------------------------------------------------
  64. void __fastcall TGUIForm::FormDestroy(TObject *Sender)
  65. {
  66.     if (Wav!=NULL) delete Wav;
  67.     if (newwave!=NULL) delete newwave;
  68. }
  69. //---------------------------------------------------------------------------
  70.